home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•Word Games•
/
WordSmith •••
/
WordSmith.doc
/
WordSmith.doc.rsrc
/
CODE_7_PrintStuff.txt
< prev
next >
Wrap
Text File
|
1989-09-15
|
27KB
|
474 lines
# near model CODE resource
# jump table entries: 600-601 (2 of them)
fn00000000:
00000000 4E56 0000 link A6, 0
00000004 48E7 0108 movem.l -[A7], D7,A4
00000008 286D F744 movea.l A4, [A5 - 0x8BC]
0000000C 2854 movea.l A4, [A4]
0000000E 2B6C 0008 FA8E move.l [A5 - 0x572], [A4 + 0x8]
00000014 2B6C 000C FA92 move.l [A5 - 0x56E], [A4 + 0xC]
0000001A 286D FA8A movea.l A4, [A5 - 0x576]
0000001E 2854 movea.l A4, [A4]
00000020 066D 0048 FA8E addi.w [A5 - 0x572], 0x48 /* 'H' */
00000026 066D 003C FA90 addi.w [A5 - 0x570], 0x3C /* '<' */
0000002C 046D 003C FA94 subi.w [A5 - 0x56C], 0x3C /* '<' */
00000032 3E2D FA92 move.w D7, [A5 - 0x56E]
00000036 9E6D FA8E sub.w D7, [A5 - 0x572]
0000003A 0447 0048 subi.w D7, 0x48 /* 'H' */
0000003E 48C7 ext.l D7
00000040 8FEC 0018 divs.w D7, [A4 + 0x18]
00000044 CFEC 0018 muls.w D7, [A4 + 0x18]
00000048 DE6D FA8E add.w D7, [A5 - 0x572]
0000004C 3B47 FA92 move.w [A5 - 0x56E], D7
00000050 3E2D FA92 move.w D7, [A5 - 0x56E]
00000054 9E6D FA8E sub.w D7, [A5 - 0x572]
00000058 48C7 ext.l D7
0000005A 8FEC 0018 divs.w D7, [A4 + 0x18]
0000005E 3B47 F73E move.w [A5 - 0x8C2], D7
00000062 3E2D FA94 move.w D7, [A5 - 0x56C]
00000066 9E6D FA90 sub.w D7, [A5 - 0x570]
0000006A 3B47 F73C move.w [A5 - 0x8C4], D7
0000006E 4CDF 1080 movem.l D7,A4, [A7]+
00000072 4E5E unlink A6
00000074 4E75 rts
00000076 8D43 414C pack D6, D3, 0x414C
0000007A 4350 chk.w D1, [A0]
0000007C 5249 addq.w A1, 1
0000007E 4E54 5041 link A4, -0xFFFFAFBF
00000082 4745 chk.w D3, D5
00000084 0000 4E56 ori.b D0, 0x56 /* 'V' */
export_75: // at 00000086 (misaligned)
00000088 FFFE .invalid <<F/7/7>>
0000008A 48E7 0100 movem.l -[A7], D7
0000008E A850 syscall InitCursor
00000090 2F3C C800 0000 move.l -[A7], 0xC8000000
00000096 A8FD syscall PrGlue
00000098 558F subq.l A7, 2
0000009A 2F3C BA00 0000 move.l -[A7], 0xBA000000
000000A0 A8FD syscall PrGlue
000000A2 3E1F move.w D7, [A7]+
000000A4 4A47 tst.w D7
000000A6 6600 0040 bne +0x42 /* 000000E8 */
000000AA 558F subq.l A7, 2
000000AC 2F2D F744 move.l -[A7], [A5 - 0x8BC]
000000B0 2F3C 5204 0498 move.l -[A7], 0x52040498
000000B6 A8FD syscall PrGlue
000000B8 1D5F FFFE move.b [A6 - 0x2], [A7]+
000000BC 558F subq.l A7, 2
000000BE 2F2D F744 move.l -[A7], [A5 - 0x8BC]
000000C2 2F3C 2A04 0484 move.l -[A7], 0x2A040484
000000C8 A8FD syscall PrGlue
000000CA 1D5F FFFE move.b [A6 - 0x2], [A7]+
000000CE 4A2E FFFE tst.b [A6 - 0x2]
000000D2 6700 000C beq +0xE /* 000000E0 */
000000D6 1B7C 0001 FAB2 move.b [A5 - 0x54E], 0x1
000000DC 6000 0006 bra +0x8 /* 000000E4 */
label000000E0:
000000E0 422D FAB2 clr.b [A5 - 0x54E]
label000000E4:
000000E4 6000 0008 bra +0xA /* 000000EE */
label000000E8:
000000E8 3F3C 0001 move.w -[A7], 0x1
000000EC A9C8 syscall SysBeep
label000000EE:
000000EE 2F3C D000 0000 move.l -[A7], 0xD0000000
000000F4 A8FD syscall PrGlue
000000F6 4CDF 0080 movem.l D7, [A7]+
000000FA 4E5E unlink A6
000000FC 4E75 rts
000000FE 8744 4F53 pack D3, D4, 0x4F53
00000102 4554 chk.w D2, [A4]
00000104 5550 subq.w [A0], 2
00000106 0000 4E56 ori.b D0, 0x56 /* 'V' */
// begin alternate branch 00000108-0000010C
fn00000108:
00000108 4E56 FFFA link A6, -0x0006
// end alternate branch 00000108-0000010C
fn00000108: // (misaligned)
0000010A FFFA .invalid <<F/7/7>>
0000010C 48E7 0318 movem.l -[A7], D6,D7,A3,A4
00000110 2F2D FA8A move.l -[A7], [A5 - 0x576]
00000114 4EAD 00B2 jsr [A5 + 0xB2 /* export_18 */]
00000118 286D FA8A movea.l A4, [A5 - 0x576]
0000011C 2854 movea.l A4, [A4]
0000011E 7EFF moveq.l D7, 0xFFFFFFFF
00000120 2D47 FFFA move.l [A6 - 0x6], D7
00000124 426E FFFE clr.w [A6 - 0x2]
label00000128:
00000128 526E FFFE addq.w [A6 - 0x2], 1
0000012C 52AE FFFA addq.l [A6 - 0x6], 1
00000130 598F subq.l A7, 4
00000132 2F2C 003E move.l -[A7], [A4 + 0x3E]
00000136 2F2E FFFA move.l -[A7], [A6 - 0x6]
0000013A 47ED F98A lea.l A3, [A5 - 0x676]
0000013E 2E0B move.l D7, A3
00000140 5287 addq.l D7, 1
00000142 2F07 move.l -[A7], D7
00000144 2F3C 0000 0001 move.l -[A7], 0x1
0000014A 42A7 clr.l -[A7]
0000014C 2F3C 0000 0001 move.l -[A7], 0x1
00000152 A9E0 syscall Munger
00000154 2D5F FFFA move.l [A6 - 0x6], [A7]+
00000158 3E2E FFFE move.w D7, [A6 - 0x2]
0000015C 5347 subq.w D7, 1
0000015E E74F lsl D7.w, 3
00000160 47ED F990 lea.l A3, [A5 - 0x670]
00000164 558F subq.l A7, 2
00000166 2F2E FFFA move.l -[A7], [A6 - 0x6]
0000016A A86B syscall LoWord
0000016C 379F 7006 move.w [A3 + D7.w + 0x6], [A7]+
00000170 3E2E FFFE move.w D7, [A6 - 0x2]
00000174 BE6D FA80 cmp.w D7, [A5 - 0x580]
00000178 66AE bne -0x50 /* 00000128 */
0000017A 2F2D FA8A move.l -[A7], [A5 - 0x576]
0000017E 4EAD 00BA jsr [A5 + 0xBA /* export_19 */]
00000182 4CDF 18C0 movem.l D6,D7,A3,A4, [A7]+
00000186 4E5E unlink A6
00000188 4E75 rts
0000018A 8A43 or.w D5, D3
0000018C 414C chk.w D0, A4
0000018E 4350 chk.w D1, [A0]
00000190 4943 chk.w D4, D3
00000192 4C4F 4300 movem.l A0,A1,A6, A7
00000196 0000 4E56 ori.b D0, 0x56 /* 'V' */
export_76: // at 00000198 (misaligned)
0000019A FE1E 48E7 .unknown 0xFE1E 0x48E7 (W = 7)
0000019E 1F38 1E2D move.b -[A7], [0x00001E2D]
000001A2 FAB2 0A07 .extension 0xAB2 <<F/2-3/5>> // unimplemented
000001A6 0001 6700 ori.b D1, 0x0
000001AA 0006 4EBA ori.b D6, 0xBA
000001AE FED8 2F3C .extension 0xED8 <<F/2-3/7>> // unimplemented
000001B2 C800 and.b D4, D0
000001B4 0000 A8FD ori.b D0, 0xFD
000001B8 558F subq.l A7, 2
000001BA 2F3C BA00 0000 move.l -[A7], 0xBA000000
000001C0 A8FD syscall PrGlue
000001C2 3E1F move.w D7, [A7]+
000001C4 4A47 tst.w D7
000001C6 57C7 seq D7
000001C8 CE2D FAB2 and.b D7, [A5 - 0x54E]
000001CC 6700 03F2 beq +0x3F4 /* 000005C0 */
000001D0 558F subq.l A7, 2
000001D2 2F2D F744 move.l -[A7], [A5 - 0x8BC]
000001D6 2F3C 3204 0488 move.l -[A7], 0x32040488
000001DC A8FD syscall PrGlue
000001DE 1E1F move.b D7, [A7]+
000001E0 6700 03DE beq +0x3E0 /* 000005C0 */
000001E4 286D FA82 movea.l A4, [A5 - 0x57E]
000001E8 2854 movea.l A4, [A4]
000001EA 2F0C move.l -[A7], A4
000001EC A851 syscall SetCursor
000001EE 486E FFF8 pea.l [A6 - 0x8]
000001F2 A874 syscall GetPort
000001F4 598F subq.l A7, 4
000001F6 3F3C 00C8 move.w -[A7], 0xC8
000001FA 42A7 clr.l -[A7]
000001FC 2F3C FFFF FFFF move.l -[A7], 0xFFFFFFFF
00000202 A97C syscall GetNewDialog
00000204 2D5F FFF4 move.l [A6 - 0xC], [A7]+
00000208 486E FFF4 pea.l [A6 - 0xC]
0000020C 2F3C 0014 0001 move.l -[A7], 0x140001
00000212 1F3C 0001 move.b -[A7], 0x1
00000216 4EAD 020A jsr [A5 + 0x20A /* export_61 */]
0000021A 2F2E FFF4 move.l -[A7], [A6 - 0xC]
0000021E A873 syscall SetPort
00000220 2F2E FFF4 move.l -[A7], [A6 - 0xC]
00000224 A981 syscall DrawDialog
00000226 4EBA FDD8 jsr [PC - 0x228 /* 00000000 */]
0000022A 286D FA8A movea.l A4, [A5 - 0x576]
0000022E 2854 movea.l A4, [A4]
00000230 2D54 FE30 move.l [A6 - 0x1D0], [A4]
00000234 2D6C 0004 FE34 move.l [A6 - 0x1CC], [A4 + 0x4]
0000023A 286D FA8A movea.l A4, [A5 - 0x576]
0000023E 2854 movea.l A4, [A4]
00000240 28AD FA8E move.l [A4], [A5 - 0x572]
00000244 296D FA92 0004 move.l [A4 + 0x4], [A5 - 0x56E]
0000024A 286D FA8A movea.l A4, [A5 - 0x576]
0000024E 2854 movea.l A4, [A4]
00000250 2D6C 0008 FE28 move.l [A6 - 0x1D8], [A4 + 0x8]
00000256 2D6C 000C FE2C move.l [A6 - 0x1D4], [A4 + 0xC]
0000025C 286D FA8A movea.l A4, [A5 - 0x576]
00000260 2854 movea.l A4, [A4]
00000262 296D FA8E 0008 move.l [A4 + 0x8], [A5 - 0x572]
00000268 296D FA92 000C move.l [A4 + 0xC], [A5 - 0x56E]
0000026E 2F2D FA8A move.l -[A7], [A5 - 0x576]
00000272 A9D0 syscall TECalText
00000274 4EAD 023A jsr [A5 + 0x23A /* export_67 */]
00000278 2F2D FA8A move.l -[A7], [A5 - 0x576]
0000027C 4EAD 00B2 jsr [A5 + 0xB2 /* export_18 */]
00000280 286D FA8A movea.l A4, [A5 - 0x576]
00000284 2854 movea.l A4, [A4]
00000286 3E3C 0001 move.w D7, 0x1
0000028A 3C2D F98C move.w D6, [A5 - 0x674]
0000028E 5346 subq.w D6, 1
00000290 3D46 FE20 move.w [A6 - 0x1E0], D6
00000294 6000 0042 bra +0x44 /* 000002D8 */
label00000298:
00000298 3C07 move.w D6, D7
0000029A DC46 add.w D6, D6
0000029C 47EE FF04 lea.l A3, [A6 - 0xFC]
000002A0 3A07 move.w D5, D7
000002A2 5245 addq.w D5, 1
000002A4 5345 subq.w D5, 1
000002A6 CBFC 0006 muls.w D5, 0x6
000002AA 45ED F5F4 lea.l A2, [A5 - 0xA0C]
000002AE 3832 5000 move.w D4, [A2 + D5.w]
000002B2 D844 add.w D4, D4
000002B4 3A07 move.w D5, D7
000002B6 5345 subq.w D5, 1
000002B8 CBFC 0006 muls.w D5, 0x6
000002BC 45ED F5F4 lea.l A2, [A5 - 0xA0C]
000002C0 3632 5000 move.w D3, [A2 + D5.w]
000002C4 D643 add.w D3, D3
000002C6 3A34 4060 move.w D5, [A4 + D4.w + 0x60]
000002CA 9A74 3060 sub.w D5, [A4 + D3.w + 0x60]
000002CE 3785 6000 move.w [A3 + D6.w], D5
000002D2 5247 addq.w D7, 1
000002D4 6900 0008 bvs +0xA /* 000002DE */
label000002D8:
000002D8 BE6E FE20 cmp.w D7, [A6 - 0x1E0]
000002DC 6FBA ble -0x44 /* 00000298 */
label000002DE:
000002DE 3D47 FFD0 move.w [A6 - 0x30], D7
000002E2 3E2D F98C move.w D7, [A5 - 0x674]
000002E6 DE47 add.w D7, D7
000002E8 47EE FF04 lea.l A3, [A6 - 0xFC]
000002EC 3C2D F98C move.w D6, [A5 - 0x674]
000002F0 5346 subq.w D6, 1
000002F2 CDFC 0006 muls.w D6, 0x6
000002F6 45ED F5F4 lea.l A2, [A5 - 0xA0C]
000002FA 3A32 6000 move.w D5, [A2 + D6.w]
000002FE DA45 add.w D5, D5
00000300 3C2C 003C move.w D6, [A4 + 0x3C]
00000304 9C74 5060 sub.w D6, [A4 + D5.w + 0x60]
00000308 3786 7000 move.w [A3 + D7.w], D6
0000030C 4EAD 024A jsr [A5 + 0x24A /* export_69 */]
00000310 4EBA FDF6 jsr [PC - 0x20A /* 00000108 */]
00000314 3D7C FFFF FFCE move.w [A6 - 0x32], 0xFFFF
0000031A 286D FA8A movea.l A4, [A5 - 0x576]
0000031E 2854 movea.l A4, [A4]
00000320 3E3C 0001 move.w D7, 0x1
00000324 3D6D FA80 FE20 move.w [A6 - 0x1E0], [A5 - 0x580]
0000032A 6000 00C2 bra +0xC4 /* 000003EE */
label0000032E:
0000032E 526E FFCE addq.w [A6 - 0x32], 1
00000332 3C2E FFCE move.w D6, [A6 - 0x32]
00000336 DC46 add.w D6, D6
00000338 3A07 move.w D5, D7
0000033A 5345 subq.w D5, 1
0000033C E74D lsl D5.w, 3
0000033E 47ED F990 lea.l A3, [A5 - 0x670]
00000342 3834 6060 move.w D4, [A4 + D6.w + 0x60]
00000346 B873 5006 cmp.w D4, [A3 + D5.w + 0x6]
0000034A 6DE2 blt -0x1C /* 0000032E */
0000034C 426E FFD0 clr.w [A6 - 0x30]
label00000350:
00000350 526E FFD0 addq.w [A6 - 0x30], 1
00000354 3C2E FFD0 move.w D6, [A6 - 0x30]
00000358 5346 subq.w D6, 1
0000035A CDFC 0006 muls.w D6, 0x6
0000035E 47ED F5F4 lea.l A3, [A5 - 0xA0C]
00000362 3A2E FFCE move.w D5, [A6 - 0x32]
00000366 BA73 6002 cmp.w D5, [A3 + D6.w + 0x2]
0000036A 6EE4 bgt -0x1A /* 00000350 */
0000036C 3C07 move.w D6, D7
0000036E 5346 subq.w D6, 1
00000370 CDFC 000A muls.w D6, 0xA /* '\n' */
00000374 47EE FE38 lea.l A3, [A6 - 0x1C8]
00000378 37AE FFD0 6000 move.w [A3 + D6.w], [A6 - 0x30]
0000037E 3C2E FFD0 move.w D6, [A6 - 0x30]
00000382 5346 subq.w D6, 1
00000384 CDFC 0006 muls.w D6, 0x6
00000388 47ED F5F4 lea.l A3, [A5 - 0xA0C]
0000038C 3D73 6000 FFCC move.w [A6 - 0x34], [A3 + D6.w]
00000392 3C07 move.w D6, D7
00000394 5346 subq.w D6, 1
00000396 CDFC 000A muls.w D6, 0xA /* '\n' */
0000039A 47EE FE38 lea.l A3, [A6 - 0x1C8]
0000039E 3A2E FFCE move.w D5, [A6 - 0x32]
000003A2 9A6E FFCC sub.w D5, [A6 - 0x34]
000003A6 CBEC 0018 muls.w D5, [A4 + 0x18]
000003AA DA6D FA8E add.w D5, [A5 - 0x572]
000003AE 3785 6002 move.w [A3 + D6.w + 0x2], D5
000003B2 3A07 move.w D5, D7
000003B4 5345 subq.w D5, 1
000003B6 E74D lsl D5.w, 3
000003B8 45ED F990 lea.l A2, [A5 - 0x670]
000003BC 37B2 5000 6004 move.w [A3 + D6.w + 0x4], [A2 + D5.w]
000003C2 3A07 move.w D5, D7
000003C4 5345 subq.w D5, 1
000003C6 E74D lsl D5.w, 3
000003C8 45ED F990 lea.l A2, [A5 - 0x670]
000003CC 37B2 5002 6008 move.w [A3 + D6.w + 0x8], [A2 + D5.w + 0x2]
000003D2 3A07 move.w D5, D7
000003D4 5345 subq.w D5, 1
000003D6 E74D lsl D5.w, 3
000003D8 45ED F990 lea.l A2, [A5 - 0x670]
000003DC 3833 6002 move.w D4, [A3 + D6.w + 0x2]
000003E0 D872 5004 add.w D4, [A2 + D5.w + 0x4]
000003E4 3784 6006 move.w [A3 + D6.w + 0x6], D4
000003E8 5247 addq.w D7, 1
000003EA 6900 000A bvs +0xC /* 000003F6 */
label000003EE:
000003EE BE6E FE20 cmp.w D7, [A6 - 0x1E0]
000003F2 6F00 FF3A ble -0xC4 /* 0000032E */
label000003F6:
000003F6 3D47 FFD4 move.w [A6 - 0x2C], D7
000003FA 286D FA8A movea.l A4, [A5 - 0x576]
000003FE 2854 movea.l A4, [A4]
00000400 2F2C 003E move.l -[A7], [A4 + 0x3E]
00000404 4EAD 00B2 jsr [A5 + 0xB2 /* export_18 */]
00000408 286D FA8A movea.l A4, [A5 - 0x576]
0000040C 2854 movea.l A4, [A4]
0000040E 286C 003E movea.l A4, [A4 + 0x3E]
00000412 2D54 FE24 move.l [A6 - 0x1DC], [A4]
00000416 598F subq.l A7, 4
00000418 2F2D F744 move.l -[A7], [A5 - 0x8BC]
0000041C 42A7 clr.l -[A7]
0000041E 42A7 clr.l -[A7]
00000420 2F3C 0400 0C00 move.l -[A7], 0x4000C00
00000426 A8FD syscall PrGlue
00000428 2D5F FFFC move.l [A6 - 0x4], [A7]+
0000042C 3F2D F740 move.w -[A7], [A5 - 0x8C0]
00000430 A887 syscall TextFont
00000432 3F2D F742 move.w -[A7], [A5 - 0x8BE]
00000436 A88A syscall TextSize
00000438 3E3C 0001 move.w D7, 0x1
0000043C 3D6D F98C FE20 move.w [A6 - 0x1E0], [A5 - 0x674]
00000442 6000 00D4 bra +0xD6 /* 00000518 */
label00000446:
00000446 558F subq.l A7, 2
00000448 2F3C BA00 0000 move.l -[A7], 0xBA000000
0000044E A8FD syscall PrGlue
00000450 3C1F move.w D6, [A7]+
00000452 4A46 tst.w D6
00000454 6600 00BC bne +0xBE /* 00000512 */
00000458 2F2E FFFC move.l -[A7], [A6 - 0x4]
0000045C 42A7 clr.l -[A7]
0000045E 2F3C 1000 0808 move.l -[A7], 0x10000808
00000464 A8FD syscall PrGlue
00000466 558F subq.l A7, 2
00000468 2F3C BA00 0000 move.l -[A7], 0xBA000000
0000046E A8FD syscall PrGlue
00000470 3C1F move.w D6, [A7]+
00000472 4A46 tst.w D6
00000474 6600 0090 bne +0x92 /* 00000506 */
00000478 2F2E FE24 move.l -[A7], [A6 - 0x1DC]
0000047C 3C07 move.w D6, D7
0000047E DC46 add.w D6, D6
00000480 49EE FF04 lea.l A4, [A6 - 0xFC]
00000484 3A34 6000 move.w D5, [A4 + D6.w]
00000488 48C5 ext.l D5
0000048A 2F05 move.l -[A7], D5
0000048C 486D FA8E pea.l [A5 - 0x572]
00000490 4267 clr.w -[A7]
00000492 A9CE syscall TETextBox/TextBox
00000494 3C07 move.w D6, D7
00000496 DC46 add.w D6, D6
00000498 49EE FF04 lea.l A4, [A6 - 0xFC]
0000049C 3A34 6000 move.w D5, [A4 + D6.w]
000004A0 48C5 ext.l D5
000004A2 DAAE FE24 add.l D5, [A6 - 0x1DC]
000004A6 2D45 FE24 move.l [A6 - 0x1DC], D5
000004AA 4A6D FA80 tst.w [A5 - 0x580]
000004AE 6700 0056 beq +0x58 /* 00000506 */
000004B2 3C3C 0001 move.w D6, 0x1
000004B6 3D6D FA80 FE1E move.w [A6 - 0x1E2], [A5 - 0x580]
000004BC 6000 003E bra +0x40 /* 000004FC */
label000004C0:
000004C0 3A06 move.w D5, D6
000004C2 5345 subq.w D5, 1
000004C4 CBFC 000A muls.w D5, 0xA /* '\n' */
000004C8 49EE FE38 lea.l A4, [A6 - 0x1C8]
000004CC 3834 5000 move.w D4, [A4 + D5.w]
000004D0 B847 cmp.w D4, D7
000004D2 6600 0022 bne +0x24 /* 000004F6 */
000004D6 3A06 move.w D5, D6
000004D8 5345 subq.w D5, 1
000004DA E54D lsl D5.w, 2
000004DC 49ED FA30 lea.l A4, [A5 - 0x5D0]
000004E0 2F34 5000 move.l -[A7], [A4 + D5.w]
000004E4 3A06 move.w D5, D6
000004E6 5345 subq.w D5, 1
000004E8 CBFC 000A muls.w D5, 0xA /* '\n' */
000004EC 49EE FE38 lea.l A4, [A6 - 0x1C8]
000004F0 4874 5002 pea.l [A4 + D5.w + 0x2]
000004F4 A8F6 syscall DrawPicture
label000004F6:
000004F6 5246 addq.w D6, 1
000004F8 6900 0008 bvs +0xA /* 00000502 */
label000004FC:
000004FC BC6E FE1E cmp.w D6, [A6 - 0x1E2]
00000500 6FBE ble -0x40 /* 000004C0 */
label00000502:
00000502 3D46 FFD0 move.w [A6 - 0x30], D6
label00000506:
00000506 2F2E FFFC move.l -[A7], [A6 - 0x4]
0000050A 2F3C 1800 040C move.l -[A7], 0x1800040C
00000510 A8FD syscall PrGlue
label00000512:
00000512 5247 addq.w D7, 1
00000514 6900 000A bvs +0xC /* 00000520 */
label00000518:
00000518 BE6E FE20 cmp.w D7, [A6 - 0x1E0]
0000051C 6F00 FF28 ble -0xD6 /* 00000446 */
label00000520:
00000520 3D47 FFD8 move.w [A6 - 0x28], D7
00000524 2F2E FFFC move.l -[A7], [A6 - 0x4]
00000528 2F3C 0800 0484 move.l -[A7], 0x8000484
0000052E A8FD syscall PrGlue
00000530 286D FA8A movea.l A4, [A5 - 0x576]
00000534 2854 movea.l A4, [A4]
00000536 2F2C 003E move.l -[A7], [A4 + 0x3E]
0000053A 4EAD 00BA jsr [A5 + 0xBA /* export_19 */]
0000053E 2F2D FA8A move.l -[A7], [A5 - 0x576]
00000542 4EAD 00BA jsr [A5 + 0xBA /* export_19 */]
00000546 286D F744 movea.l A4, [A5 - 0x8BC]
0000054A 2854 movea.l A4, [A4]
0000054C 1E2C 0044 move.b D7, [A4 + 0x44]
00000550 4887 ext.w D7
00000552 0C47 0001 cmpi.w D7, 0x1
00000556 57C7 seq D7
00000558 558F subq.l A7, 2
0000055A 2F3C BA00 0000 move.l -[A7], 0xBA000000
00000560 A8FD syscall PrGlue
00000562 3C1F move.w D6, [A7]+
00000564 4A46 tst.w D6
00000566 57C6 seq D6
00000568 CC07 and.b D6, D7
0000056A 6700 0018 beq +0x1A /* 00000584 */
0000056E 2F2D F744 move.l -[A7], [A5 - 0x8BC]
00000572 42A7 clr.l -[A7]
00000574 42A7 clr.l -[A7]
00000576 42A7 clr.l -[A7]
00000578 486E FFDA pea.l [A6 - 0x26]
0000057C 2F3C 6005 1480 move.l -[A7], 0x60051480
00000582 A8FD syscall PrGlue
label00000584:
00000584 2F2E FFF4 move.l -[A7], [A6 - 0xC]
00000588 A983 syscall DisposeDialog
0000058A 2F2E FFF8 move.l -[A7], [A6 - 0x8]
0000058E A873 syscall SetPort
00000590 286D FA8A movea.l A4, [A5 - 0x576]
00000594 2854 movea.l A4, [A4]
00000596 28AE FE30 move.l [A4], [A6 - 0x1D0]
0000059A 296E FE34 0004 move.l [A4 + 0x4], [A6 - 0x1CC]
000005A0 286D FA8A movea.l A4, [A5 - 0x576]
000005A4 2854 movea.l A4, [A4]
000005A6 296E FE28 0008 move.l [A4 + 0x8], [A6 - 0x1D8]
000005AC 296E FE2C 000C move.l [A4 + 0xC], [A6 - 0x1D4]
000005B2 A896 syscall HidePen
000005B4 4EAD 0262 jsr [A5 + 0x262 /* export_72 */]
000005B8 A897 syscall ShowPen
000005BA 4EAD 025A jsr [A5 + 0x25A /* export_71 */]
000005BE A850 syscall InitCursor
label000005C0:
000005C0 2F3C D000 0000 move.l -[A7], 0xD0000000
000005C6 A8FD syscall PrGlue
000005C8 4CDF 1CF8 movem.l D3,D4,D5,D6,D7,A2,A3,A4, [A7]+
000005CC 4E5E unlink A6
000005CE 4E75 rts
000005D0 8744 4F50 pack D3, D4, 0x4F50
000005D4 5249 addq.w A1, 1
000005D6 4E54 0000 link A4, 0